home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb33707.lsp < prev    next >
Text File  |  1998-03-15  |  14KB  |  382 lines
  1. ;=============337.07 ZAHNRIEMENSPANNER SPANNBLOCK
  2.  
  3.  
  4. (defun C:33707D1 ( / P1 Wi)
  5.    (EAITDBL "0033707")
  6.    (princ (strcat "\n\n" EAITbez1))
  7.      (EAITvari)
  8.      (EAITvars)
  9.      (setvar "ORTHOMODE" 0)
  10.      (EAITbpt nil nil nil)
  11.      (setq P1 (getpoint))
  12.      (if (= P1 nil)(setq P1 (EAITrpt)))
  13.      (setvar "OSMODE" 0)
  14.      (setvar "ORTHOMODE" 1)
  15.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  16.      (command EAITege (strcat EAITpfn "33707d1") P1 "" "" EAITofkei pause)
  17.  
  18.      (setq Wi (EAITbw))
  19.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 152)) 14) "" "" ""
  20.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  21.      )
  22.     
  23.      (EAITvarz2)
  24.      (princ)
  25.  
  26. );defun D1
  27.  
  28. (defun C:33707D2 ( / P1 Wi)
  29.    (EAITDBL "0033707")
  30.    (princ (strcat "\n\n" EAITbez1))
  31.      (EAITvari)
  32.      (EAITvars)
  33.      (setvar "ORTHOMODE" 0)
  34.      (EAITbpt nil nil nil)
  35.      (setq P1 (getpoint))
  36.      (if (= P1 nil)(setq P1 (EAITrpt)))
  37.      (setvar "OSMODE" 0)
  38.      (setvar "ORTHOMODE" 1)
  39.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  40.      (command EAITege (strcat EAITpfn "33707D2") P1 "" "" EAITofkei pause)
  41.  
  42.      (setq Wi (EAITbw))
  43.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 152)) 14) "" "" ""
  44.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  45.      )
  46.  
  47.      (EAITvarz2)
  48.      (princ)
  49.  
  50. );defun D2
  51.  
  52.  
  53. (defun C:33707S1 ( / P1 Wi ANT)
  54.    (EAITDBL "0033707")
  55.    (princ (strcat "\n\n" EAITbez1))
  56.      (EAITvari)
  57.      (EAITvars)
  58.      (setvar "ORTHOMODE" 0)
  59.      (initget (strcat (EAITmg "mb_mld14" "025") " " (EAITmg "mb_mld14" "026")))  ;Oben Unten
  60.      (setq ANT (getkword (strcat "\n"  (EAITmg "mb_mld14" "027") "  ")))      ;Einfuegepunkt Oben oder Unten :<O, U>
  61.      (EAITbpt nil nil nil)
  62.      (setq P1 (getpoint))
  63.      (if (= P1 nil)(setq P1 (EAITrpt)))
  64.      (setvar "OSMODE" 0)
  65.      (setvar "ORTHOMODE" 1)
  66.  
  67.      (cond((= ANT (EAITmg "mb_mld14" "025"))    ;Oben
  68.             (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  69.             (command EAITege (strcat EAITpfn "33707S1O") P1 "" "" EAITofkei pause)
  70.  
  71.             (setq Wi (EAITbw))
  72.             (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 300)) 13) "" "" ""
  73.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  74.             )
  75.        );1.cond-Fall
  76.          
  77.           ((= ANT (EAITmg "mb_mld14" "026"))    ;Unten
  78.             (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  79.             (command EAITege (strcat EAITpfn "33707S1U") P1 "" "" EAITofkei pause)
  80.  
  81.             (setq Wi (EAITbw))
  82.             (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 51)) 10) "" "" ""
  83.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  84.             )
  85.        );2.cond-Fall 
  86.     );cond
  87.  
  88.      (EAITvarz2)
  89.      (princ)
  90.  
  91. );defun S1
  92.  
  93.  
  94. (defun C:33707S2 ( / P1 Wi ANT)
  95.    (EAITDBL "0033707")
  96.    (princ (strcat "\n\n" EAITbez1))
  97.      (EAITvari)
  98.      (EAITvars)
  99.      (setvar "ORTHOMODE" 0)
  100.      (initget (strcat (EAITmg "mb_mld14" "025") " " (EAITmg "mb_mld14" "026")));Oben Unten
  101.      (setq ANT (getkword (strcat "\n"  (EAITmg "mb_mld14" "027") "  ")))    ;Einfuegepunkt Oben oder Unten :<O, U>
  102.      (EAITbpt nil nil nil)
  103.      (setq P1 (getpoint))
  104.      (if (= P1 nil)(setq P1 (EAITrpt)))
  105.      (setvar "OSMODE" 0)
  106.      (setvar "ORTHOMODE" 1)
  107.  
  108.      (cond((= ANT (EAITmg "mb_mld14" "025"))    ;Oben
  109.             (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  110.             (command EAITege (strcat EAITpfn "33707S2O") P1 "" "" EAITofkei pause)
  111.  
  112.             (setq Wi (EAITbw))
  113.             (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 300)) 13) "" "" ""
  114.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  115.             )
  116.        );1.cond-Fall
  117.          
  118.           ((= ANT (EAITmg "mb_mld14" "026"))    ;Unten
  119.             (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  120.             (command EAITege (strcat EAITpfn "33707S2U") P1 "" "" EAITofkei pause)
  121.  
  122.             (setq Wi (EAITbw))
  123.             (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 51)) 10) "" "" ""
  124.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  125.             )
  126.        );2.cond-Fall 
  127.     );cond
  128.  
  129.      (EAITvarz2)
  130.      (princ)
  131.  
  132. );defun S2
  133.  
  134.  
  135. (defun C:33707V1 ( / P1 Wi ANT)
  136.    (EAITDBL "0033707")
  137.    (princ (strcat "\n\n" EAITbez1))
  138.      (EAITvari)
  139.      (EAITvars)
  140.      (setvar "ORTHOMODE" 0)
  141.      (initget (strcat (EAITmg "mb_mld14" "025") " " (EAITmg "mb_mld14" "026")))  ;Oben Unten
  142.      (setq ANT (getkword (strcat "\n"  (EAITmg "mb_mld14" "027") "  ")))      ;Einfuegepunkt Oben oder Unten :<O, U>
  143.      (EAITbpt nil nil nil)
  144.      (setq P1 (getpoint))
  145.      (if (= P1 nil)(setq P1 (EAITrpt)))
  146.      (setvar "OSMODE" 0)
  147.      (setvar "ORTHOMODE" 1)
  148.  
  149.      (cond((= ANT (EAITmg "mb_mld14" "025"))    ;Oben
  150.             (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  151.             (command EAITege (strcat EAITpfn "33707V1O") P1 "" "" EAITofkei pause)
  152.  
  153.             (setq Wi (EAITbw))
  154.             (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 207)) 8) "" "" ""
  155.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  156.             )
  157.        );1.cond-Fall
  158.          
  159.           ((= ANT (EAITmg "mb_mld14" "026"))    ;Unten
  160.             (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  161.             (command EAITege (strcat EAITpfn "33707V1U") P1 "" "" EAITofkei pause)
  162.  
  163.             (setq Wi (EAITbw))
  164.             (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 116)) 17) "" "" ""
  165.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  166.             )
  167.        );2.cond-Fall 
  168.      );cond
  169.  
  170.      (EAITvarz2)
  171.      (princ)
  172.  
  173. );defun V1
  174.  
  175.  
  176. (defun C:33707V2 ( / P1 Wi ANT)
  177.    (EAITDBL "0033707")
  178.    (princ (strcat "\n\n" EAITbez1))
  179.      (EAITvari)
  180.      (EAITvars)
  181.      (setvar "ORTHOMODE" 0)
  182.      (initget (strcat (EAITmg "mb_mld14" "025") " " (EAITmg "mb_mld14" "026")))  ;Oben Unten
  183.      (setq ANT (getkword (strcat "\n"  (EAITmg "mb_mld14" "027") "  ")))      ;Einfuegepunkt Oben oder Unten :<O, U>
  184.      (EAITbpt nil nil nil)
  185.      (setq P1 (getpoint))
  186.      (if (= P1 nil)(setq P1 (EAITrpt)))
  187.      (setvar "OSMODE" 0)
  188.      (setvar "ORTHOMODE" 1)
  189.  
  190.      (cond((= ANT (EAITmg "mb_mld14" "025"))    ;Oben
  191.             (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  192.             (command EAITege (strcat EAITpfn "33707V2O") P1 "" "" EAITofkei pause)
  193.  
  194.             (setq Wi (EAITbw))
  195.             (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 333)) 8) "" "" ""
  196.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  197.             )
  198.        );1.cond-Fall
  199.          
  200.           ((= ANT (EAITmg "mb_mld14" "026"))    ;Unten
  201.           (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  202.             (command EAITege (strcat EAITpfn "33707V2U") P1 "" "" EAITofkei pause)
  203.  
  204.             (setq Wi (EAITbw))
  205.             (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 64)) 17) "" "" ""
  206.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  207.             )
  208.        );2.cond-Fall 
  209.     );cond
  210.  
  211.      (EAITvarz2)
  212.      (princ)
  213.  
  214. );defun V2
  215.  
  216. (defun C:33707G2 ( / A E1 E2 E3 G G1 PH P1 P2 P3 P4 P5 P6 P7 Wi Wg)
  217.      (EAITDBL "0033707")
  218.      (princ (strcat "\n\n" EAITbez1))
  219.      (EAITvari)
  220.      (EAITvars)
  221.      (setvar "ORTHOMODE" 0)
  222.      (EAITmsg "mb_mld14" "\n" "028" " ")
  223.      (setq G (car (entsel " ")))
  224.      (if (= (cdr (assoc 0 ( entget G ))) "INSERT")
  225.            (progn                            
  226.             (setq G1 (cdr (assoc 2 ( entget G ))))    ;Name des Gegenlagers
  227.     
  228. ;---------Bestimmung des Einfuegewinkels vom Gegenlager
  229.             (setq Wi (EAITbw))
  230. ;------------------------------------------------------    
  231.             (command EAITbks EAITbel G)
  232.     (cond 
  233.           ((= G1 "33707D1")
  234.          
  235.                (setq Wi (+ Wi Pi)
  236.                     Wg (EAITbig Wi)
  237.               )
  238.         (prompt (strcat "\n" (EAITmg "mb_mld14" "029")" "(EAITmg "mb_mld14" "031")" ")) ;Abstand zum 1.Spannblock ( >= 5 in 5mm Schritten zu veraendern ): < 5 >
  239.                   (setq A (getdist))
  240.         (if (= A NIL) (setq A 5))
  241.         (while (< A 5)
  242.             (prompt (strcat "\n" (EAITmg "mb_mld14" "030") " " (EAITmg "mb_mld14" "031")" ")) ;Abstand muß größer sein ( >= 5 in 5mm Schritten zu veraendern ): < 5 >
  243.             (setq A (getdist))
  244.             (if (= A NIL) (setq A 5))
  245.                );while
  246.         (setq P1 (polar '(0 0)Wi (+ A 68)))
  247.                 (command EAITege (strcat EAITpfn "33707D1") P1 "" "" Wg)
  248.                (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 152)) 14) "" "" ""
  249.                              EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  250.                )
  251.         (setq PH (polar P1 (+ (+ Wi Pi)(/ Pi 2)) 12.95)
  252.               P2 (polar PH (+ Wi Pi) 34)
  253.                   P3 (polar P2 (+ Wi Pi) A)
  254.               P4 (polar P2 (+ (+ Wi Pi)(/ Pi 2)) 6)
  255.               P5 (polar P4 (+ Wi Pi) A)
  256.               P6 (polar P2 (+ (+ Wi Pi)(/ Pi 2)) 3)
  257.               P7 (polar P6 (+ Wi Pi) A)
  258.         )
  259.         (command EAITlay EAITlse "EAIT50" ""
  260.                         EAITlin P2 P3 ""
  261.         )
  262.         (setq E1 (entlast)) 
  263.         (command EAITlin P4 P5 ""
  264.              EAITlay EAITlse "EAITstpg" ""
  265.              EAITlin P6 P7 ""
  266.         )
  267.         (setq E2 (entnext E1) E3 (entnext E2))
  268.         (command EAITspi E1 E2 E3 "" '(0 0)P1 EAITspn)
  269.  
  270.         (EAITDBL "9000001")    
  271.                (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 155)) 40) "" "" ""
  272.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos(+ A 80) 2 1) (rtos EAITb1 2 1) EAITnr
  273.                )
  274.             
  275.           );1.cond-Fall
  276.  
  277.  
  278.           ((= G1 "33707D2")
  279.          
  280.                (setq Wi (+ Wi Pi)
  281.                   Wg (EAITbig Wi)
  282.             )
  283.              
  284.         (prompt (strcat "\n" (EAITmg "mb_mld14" "029") " " (EAITmg "mb_mld14" "031")" "));Abstand zum 1.Spannblock ( >= 5 in 5mm Schritten zu veraendern ): < 5 >
  285.                   (setq A (getdist))
  286.         (if (= A NIL) (setq A 5))
  287.         (while (< A 5)
  288.             (prompt (strcat "\n" (EAITmg "mb_mld14" "030") " " (EAITmg "mb_mld14" "031")" "));Abstand muß größer sein ( >= 5 in 5mm Schritten zu veraendern ): < 5 >
  289.             (setq A (getdist))
  290.             (if (= A NIL) (setq A 5))
  291.                );while
  292.         (setq P1 (polar '(0 0)Wi (+ A 68)))
  293.                 (command EAITege (strcat EAITpfn "33707D2") P1 "" "" Wg)
  294.                (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 152)) 14) "" "" ""
  295.                               EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  296.                )
  297.         (setq PH (polar P1 (+ (+ Wi Pi)(/ Pi 2)) 12.95)
  298.               P2 (polar PH (+ Wi Pi) 34)
  299.                   P3 (polar P2 (+ Wi Pi) A)
  300.               P4 (polar P2 (+ (+ Wi Pi)(/ Pi 2)) 6)
  301.               P5 (polar P4 (+ Wi Pi) A)
  302.               P6 (polar P2 (+ (+ Wi Pi)(/ Pi 2)) 3)
  303.               P7 (polar P6 (+ Wi Pi) A)
  304.         )
  305.         (command EAITlay EAITlse "EAIT50" ""
  306.                         EAITlin P2 P3 ""
  307.         )
  308.         (setq E1 (entlast)) 
  309.         (command EAITlin P4 P5 ""
  310.                  EAITlay EAITlse "EAITstpg" ""
  311.              EAITlin P6 P7 ""
  312.         )
  313.         (setq E2 (entnext E1) E3 (entnext E2))
  314.         (command EAITspi E1 E2 E3 "" '(0 0)P1 EAITspn)
  315.             
  316.         (EAITDBL "9000001")    
  317.                (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 155)) 40) "" "" ""
  318.                               EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos(+ A 80) 2 1) (rtos EAITb1 2 1) EAITnr
  319.                )
  320.             
  321.           );2.cond-Fall
  322.  
  323.          
  324.           ((= G1 "33709D1")
  325.                
  326.                (setq Wg (EAITbig Wi))
  327.                      
  328.                   (setq A 23)
  329.         (setq P1 (polar '(0 0)Wi (+ A 44)))
  330.                 (command EAITege (strcat EAITpfn "33707D1") P1 "" "" Wg)
  331.                (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 152)) 14) "" "" ""
  332.                              EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  333.                )
  334.         (setq PH (polar P1 (+ (+ Wi Pi)(/ Pi 2)) 12.95)
  335.               P2 (polar PH (+ Wi Pi) 34)
  336.                   P3 (polar P2 (+ Wi Pi) A)
  337.               P4 (polar P2 (+ (+ Wi Pi)(/ Pi 2)) 6)
  338.               P5 (polar P4 (+ Wi Pi) A)
  339.               P6 (polar P2 (+ (+ Wi Pi)(/ Pi 2)) 3)
  340.               P7 (polar P6 (+ Wi Pi) A)
  341.         )
  342.         (command EAITlay EAITlse "EAIT50" ""
  343.                         EAITlin P2 P3 ""
  344.         )
  345.         (setq E1 (entlast)) 
  346.         (command EAITlin P4 P5 ""
  347.                  EAITlay EAITlse "EAITstpg" ""
  348.              EAITlin P6 P7 ""
  349.         )
  350.         (setq E2 (entnext E1) E3 (entnext E2))
  351.         (command EAITspi E1 E2 E3 "" '(0 0)P1 EAITspn)
  352.             
  353.           );3.cond-Fall
  354.  
  355.            (T  (EAITmsg "mb_mld14" "\n    " "032" " !")    ;Gewaehlter Block ist kein Gegenlager !
  356.         (EAITmsg "mb_mld14" "\n    " "034" " !")    ;Kein automatisches Einfügen des Spannblocks möglich ! 
  357.         )
  358.          
  359.     );cond
  360.     (command EAITbks EAITbvo)
  361.    );progn
  362.  
  363.  
  364.  
  365. ;-----------------------Meldung wenn Gegenlager kein Block mehr
  366.    (progn
  367.    (EAITmsg "mb_mld14" "\n    " "033" " !")    ;Gegenlager ist kein Block mehr ! ")
  368.    (EAITmsg "mb_mld14" "\n    " "034" " !")    ;Kein automatisches Einfügen des Spannblocks möglich ! 
  369.    );Meldung
  370.     
  371.   );if 
  372.     
  373.      (EAITvarz2)
  374.      (princ)
  375.     
  376. );defun G
  377.  
  378.  
  379.  
  380.  
  381. (princ)
  382.